home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 93xx / 9302a.d64 / split screen_seq < prev    next >
Encoding:
Text File  |  1995-03-30  |  2.0 KB  |  82 lines
  1.          *= $1000    ;START-ADRESSE
  2.  
  3. ;---------------------------------------
  4.  
  5.          SEI        ;IRQ SPERREN
  6.          JSR INIT   ;BILD INITIALISIEREN
  7.  
  8.          LDA #>START ;HIGHBYTE
  9.          STA $0315   ;SETZEN
  10.          LDA #<START ;LOWBYTE
  11.          STA $0314   ;SETZEN
  12.  
  13.          LDA #$81    ;RASTER-IRQ
  14.          STA $D01A   ;ANMELDEN
  15.          CLI         ;IRQ FREIGEBEN
  16.          RTS         ;ZURUECK
  17.  
  18. ;---------------------------------------
  19. START    LDA #$38  ;WARTEN AUF
  20. ST1      CMP $D012 ;RASTERZEILE $38
  21.          BNE ST1   ;
  22.  
  23.          LDA #$1D  ;BITMAP-BEREICH
  24.          STA $D018 ;SETZEN
  25.          LDA #$3B  ;BITMAP
  26.          STA $D011 ;ANSCHALTEN
  27.          LDA #$18  ;MULTICOLOR
  28.          STA $D016 ;ANSCHALTEN
  29.  
  30.          LDA #$D2  ;WARTEN AUF
  31. ST2      CMP $D012 ;RASTERZEILE $D2
  32.          BNE ST2   ;
  33.  
  34.          NOP       ;WARTEN, UM FLACKERN
  35.          NOP       ;ZU VERMEIDEN
  36.  
  37.          LDA #$1B  ;BITMAP-MODUS
  38.          STA $D011 ;AUSSCHALTEN
  39.          LDA #$15  ;ORIGINAL-CHARSET
  40.          STA $D018 ;EINBLENDEN
  41.          LDA #$C8  ;MULTICOLOR
  42.          STA $D016 ;AUSSCHALTEN
  43.  
  44.          INC $D019 ;IRR LOESCHEN
  45.  
  46. OLDIRQ   JMP $EA31 ;ALTER IRQ
  47. ;---------------------------------------
  48.  
  49. ;---------------------------------------
  50. INIT     LDA #$00  ;SCREEN-FARBEN
  51.          STA $D020 ;AUF
  52.          STA $D021 ;SCHWARZ SETZEN
  53.  
  54.          LDA #$1D  ;BITMAP-BEREICH
  55.          STA $D018 ;SETZEN
  56.  
  57.          LDA #$3B  ;BITMAP
  58.          STA $D011 ;ANSCHALTEN
  59.  
  60.          LDA #$18  ;MULTICOLOR
  61.          STA $D016 ;ANSCHALTEN
  62.  
  63.          LDX #$00    ;
  64. LOOP1    LDA $3F40,X ;SCREEN-RAM
  65.          STA $0400,X ;IN DEN
  66.          LDA $4040,X ;RICHTIGEN
  67.          STA $0500,X ;BEREICH
  68.          LDA $4140,X ;AB $0400
  69.          STA $0600,X ;SCHREIBEN
  70.  
  71.          LDA $4328,X ;COLOR-RAM
  72.          STA $D800,X ;IN DEN
  73.          LDA $4428,X ;RICHTIGEN
  74.          STA $D900,X ;BEREICH
  75.          LDA $4528,X ;AB $0400
  76.          STA $DA00,X ;SCHREIBEN
  77.          INX         ;
  78.          BNE LOOP1   ;
  79.          RTS         ;ZURUECK
  80. ;---------------------------------------
  81.  
  82.